| texte
// et le remplacer par crlf (à priori seuls cas possibles)
sepcel := crlf+sepchar1+sepchar2;
if Pos(sepcel, str1) <> 1 then sepcel := crlf+sepchar1;
str1 := StringReplace(str1, sepcel, crlf);
// s'il reste des crlf+sepchar2+sepchar2 ou crlf+sepchar2, il s'agit de continuations de lignes
// recoller les lignes si demandé
if flag = 'nocont' then
sepcel := crlf // on recolle pas
else
sepcel := ' '; // 1 blanc pour ne pas coller au précédent
str1 := StringReplace(str1, crlf+sepchar2+sepchar2, sepcel);
str1 := StringReplace(str1, crlf+sepchar2, sepcel);
//
str1 := StringReplace(str1, sepchar2+sepchar2, sepchar2); // supprimer les cellules vides
str1 := StringReplace(str1, sepchar2+sepchar2, sepchar2); // oui, c'est voulu
str1 := StringReplace(str1, sepchar2, ' '+sepchar2+' '); // decoller les séparateurs du texte
str1 := StringReplace(str1, sepchar1, ''); // et celui qui reste
result := str1; // suite du formatage dans FormatText
end;
//------------------------------------------------------------------------------
// extraction des infos des tables MrCinéma
//------------------------------------------------------------------------------
Function ExtractInfo(str1, from: string) :string;
var
i: integer;
begin
// si pas de séparateur de champs (sepchar2), alors on prend le mot suivant (anciennes définitions)
// d'où la recherche sur des mots 'incomplets' (et en plus, ça permet de couvrir plus de cas...)
// rappel: le mot cherché (from) peut contenir des majuscules
result := '';
i := Pos(AnsiLowerCase(from), AnsiLowerCase(str1));
if i = 0 then exit; // from non trouvé
str1 := Copy(str1, i + Length(from), Length(str1));
i := Pos(crlf, str1);
if i > 0 then // si pas de crlf, prendre tout
str1 := Left(str1, i-1);
i := Pos(sepchar2, str1);
if i = 0 then i := Pos(' ', str1);
result := Copy(str1, i +1, length(str1));
end;
//------------------------------------------------------------------------------
// récupération des identifiants 'sous-pages'
// GetSubParms(page)
//------------------------------------------------------------------------------
procedure GetSubParms(s: string);
var
Value: string;
i: integer;
begin
// infos utiles
// 5.2 les url ont la bougeotte donc ne pas pré-déterminer l'ordre
Value := TextBetween(s, 'L''essentiel', '');
if Pos('doPostBack', Value) > 0 then
begin
// formulaire et PostPage (ancienne méthode)
// à garder tant que la fonction doPostBack est définie dans la page (on ne sait jamais...)
// récupère le paramètre VIEWSTATE (ident de session)
viewstate := TextBetween(s, 'name="__VIEWSTATE"', '/>');
viewstate := TextBetween(viewstate, 'value="', '"');
// c'est un peu trop cablé: ordre et __EVENTARGUMENT='': serait mieux si c'était plus précis
// page histoire
idhistoire := TextBetween(Value, '__doPostBack(''', '''');
Value := RemainingText;
if idhistoire <> '' then
begin
idhistoire := StringReplace(idhistoire, '$', ':');
idhistoire := '__EVENTTARGET='+ idhistoire + '&__EVENTARGUMENT=&__VIEWSTATE=' + viewstate;
end;
// page avis de la rédaction
idavis := TextBetween(Value, '__doPostBack(''', '''');
Value := RemainingText;
if idavis <> '' then
begin
idavis := StringReplace(idavis, '$', ':');
idavis := '__EVENTTARGET='+ idavis + '&__EVENTARGUMENT=&__VIEWSTATE=' + viewstate;
end;
// page générique
idgenerique := TextBetween(Value, '__doPostBack(''', '''');
Value := RemainingText;
if idgenerique <> '' then
begin
idgenerique := StringReplace(idgenerique, '$', ':');
idgenerique := '__EVENTTARGET='+ idgenerique + '&__EVENTARGUMENT=&__VIEWSTATE=' + viewstate;
end;
// page anecdote
idanecdote := TextBetween(Value, '__doPostBack(''', '''');
if idanecdote <> '' then
begin
idanecdote := StringReplace(idanecdote, '$', ':');
idanecdote := '__EVENTTARGET='+ idanecdote + '&__EVENTARGUMENT=&__VIEWSTATE=' + viewstate;
end;
end
else
begin
// url normale (méthode actuelle)
// page histoire
idhistoire := GetUrlPage(Value, '>L''histoire');
// page avis de la rédaction
idavis := GetUrlPage(Value,'>L''avis de la rédaction');
// page générique
idgenerique := GetUrlPage(Value,'>Le générique complet');
// page anecdote
idanecdote := GetUrlPage(Value,'>L''anecdote');
end;
// si certains champs ne doivent pas être valorisés, inutile de lire les pages supplémentaires
if not CanSetField(fieldDescription) then idhistoire := '';
if not CanSetField(fieldComments) then idanecdote := '';
if not CanSetField(fieldComments) and (not CanSetField(fieldRating)) then idavis := '';
// pour générique complet
// il faut tester 'not' pour acteurs et réalisateur et producteur et durée et année
Value := '';
if CanSetField(fieldActors) then Value := 'ok';
if CanSetField(fieldDirector) then Value := 'ok';
if CanSetField(fieldProducer) then Value := 'ok';
if CanSetField(fieldLength) then Value := 'ok';
if CanSetField(fieldYear) then Value := 'ok';
if Value = '' then idgenerique := '';
end;
//------------------------------------------------------------------------------
// récupération de l'url d'une sous-page
// url := GetUrlPage(texte_contenant_l'url, texte_à_chercher)
//------------------------------------------------------------------------------
function GetUrlPage(wholetext, str: string) : string;
var
id: string;
i: integer;
begin
// l'url est avant le texte cherché
i := Pos(str, wholetext);
id := left(wholetext, i + length(str));
// et après le dernier '', '');
end;
//------------------------------------------------------------------------------
// traitement mode batch
//------------------------------------------------------------------------------
procedure MrCinemaBatch;
begin
SetField(fieldChecked, ''); // init film en traitement
case BatchMode of
1:
begin
// recherche par url
MovieName := GetField(fieldUrl); // pas d'url ou autre site, ignorer
if (MovieName <> '') and (Pos(MrCinemaUrlFilm, MovieName) > 0) then
AnalyzeMoviePageMrCinema(MovieName)
else
LogMessage('MrCinéma: non traitée url="'+Moviename+'"');
end;
2:
begin
// recherche par nom + réalisateur
MovieName := GetMovieName;
if MovieName <> '' then
begin
initBatchLook; // init paramètres de recherche
AnalyzePageMrCinema;
end else
LogMessage('MrCinéma: non traitée (pas de nom de film)');
end;
end; {case}
if filmok then
begin
SetField(fieldChecked, 'x'); // film ok
if ((ImportPicture = 2) or (ImportPicture = 3)) then
begin
// ok pour MrCinéma: rechercher l'affiche Cinéfil
// (forcément par nom + réalisateur tant qu'il n'y a pas de 2ème champ url)
MovieName := GetMovieName; // relecture
if MovieName <> '' then
begin
initBatchLook;
AnalyzePageCinefil;
end;
end; {import picture}
end; {filmok}
end;
//------------------------------------------------------------------------------
// traitement mode normal
//------------------------------------------------------------------------------
procedure MrCinemaNorm;
var
mname: string; // Input ne peut pas accéder aux variables déclarées dans les units
begin
// Monsieur cinéma
mname := GetMovieName;
msgano := 'Entrez le titre du film';
repeat
if not Input('MonsieurCinéma.com Import', msgano, mname) or (mname = '') then exit;
MovieName := mname;
AnalyzePageMrCinema;
until filmok;
// Cinéfil (si image demandée)
if (ImportPicture = 2) or (ImportPicture = 3) then
begin
MovieName := GetMovieName; // relecture
filmok := False;
msgano := 'Entrez le titre du film';
repeat
AnalyzePageCinefil;
if not filmok then
begin // page non trouvée ou erreur: on y retourne
mname := MovieName;
if not Input('Cinéfil.com Import', msgano, mname) or (mname = '') then
exit; // non saisie: on sort
MovieName := mname;
end;
until filmok;
end; {import picture}
end;
//------------------------------------------------------------------------------
// c'est ici que ça commence
//------------------------------------------------------------------------------
begin
if abort = 'o' then exit; // mode batch non confirmé
if firstcall <> 'done' then
begin // 1er appel: init paramètres
firstcall := 'done';
if not CheckVersion(3,5,0) then
begin
ShowMessage('Ce script requiert une version plus récente de Ant Movie Catalog (au moins la version 3.5.0)');
abort := 'o';
exit;
end;
calledBy := mrcinema_id; // identifiant appelant
batchlogfic := 'c:\amc_MrCinema_batchlog.txt'; // log pour mode batch
debug := False; // mode debug on/off
debugrep := 'd:\temp\'; // répertoire de stockage des fichiers
// récupère les variables user (utilisées plus d'une fois)
BatchMode := GetOption('Mode');
FormatTitre := GetOption('FormatTitre');
ImportPicture := GetOption('Image');
if not CanSetPicture then
ImportPicture := 0; // champ image non modifiable: inutile de lire
//
if BatchMode > 0 then // mode batch: confirmer le choix
begin
initBatchLog; // init log
if not ShowWarning(confbatch.Text) then
begin
AddToLog('mode batch annulé');
abort := 'o';
exit;
end;
end;
end;
// c'est parti
filmok := False;
if BatchMode = 0 then
MrCinemaNorm
else
MrCinemaBatch;
end.
|
Aucun avis de la redaction.', PageAvis) > 0) and (Value2 = '0') then
Value2 := ''; // pas d'avis et img = 0redac.gif alors ignorer
if Value2 <> '' then
Value2 := IntToStr(StrToInt(Value2, 0) * 2); // note = 2 * x
SetField(fieldRating, Value2);
// on ajoute l'anecdote si demandé et existant
if (GetOption('Anecdote') = 1) and (idanecdote <> '') then
begin
PageAnecdote := GetSubPage(Address, idanecdote, 'anecdote');
Value2 := FormatText(TextBetween(PageAnecdote, '